home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / Checks.md < prev    next >
Text File  |  1992-08-18  |  570b  |  26 lines
  1. (* check i/o errors *)
  2.  
  3. (* $Id: Checks.md,v 1.2 1991/11/21 14:47:50 grosch rel $ *)
  4.  
  5. (* $Log: Checks.md,v $
  6.  * Revision 1.2  1991/11/21  14:47:50  grosch
  7.  * new version of RCS on SPARC
  8.  *
  9.  * Revision 1.1  90/06/11  18:44:42  grosch
  10.  * layout improvements
  11.  * 
  12.  * Revision 1.0     88/10/04  14:26:39  vielsack
  13.  * Initial revision
  14.  * 
  15.  *)
  16.  
  17. DEFINITION MODULE Checks;
  18.  
  19. FROM    IO        IMPORT    tFile;
  20.  
  21. PROCEDURE ErrorCheck     (s: ARRAY OF CHAR; n: INTEGER);
  22. PROCEDURE CheckReadOpen     (VAR f: tFile; s: ARRAY OF CHAR);
  23. PROCEDURE CheckWriteOpen (VAR f: tFile; s: ARRAY OF CHAR);
  24.  
  25. END Checks.
  26.